home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128Toolkit / PRG-64.ARC / PGM DEMO 1 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  10.4 KB  |  337 lines
  1. 110 POKE55,255:POKE56,90:CLR
  2. 120 DIMX(8),Y(8),M$(12),HT(12),S1(25),C(25),R(25)
  3. 130 CS=1:CO=2:C=2:A=RND(TI)
  4. 140 A1=40960:A2=41984:A3=42497:A4=43226:A5=44251:A6=44980:A7=45485:A8=46214
  5. 150 A9=46719:A0=47448
  6. 160 POKE53280,14:POKE53281,6:PRINT"[147]"
  7. 170 BA=32768+4*256:POKE646,0
  8. 180 SYSBA+6,57344,52224:SYSBA:SYSBA+75
  9. 190 SYSBA+12,40960,"CHAR SETS"
  10. 200 SYSBA+12,49152,"SPRITES"
  11. 210 SYSBA+39,A2,1,1,"[147][137][138][154]":SYSBA+24
  12. 220 SYSBA+3*28,0,0,0,0,0,1
  13. 230 SYSBA+3*29,0,350,50,0
  14. 240 SYSBA+3*27,1,0
  15. 250 SYSBA+39,55296,1,0,"  [212]HIS IS THE NORMAL [195]64 CHARACTER SET."
  16. 260 SYSBA+39,55296,3,0,"[215]HILE IT IS ALMOST READABLE, IT'S NOT"
  17. 270 SYSBA+39,55296,5,0,"ALWAYS RIGHT FOR EVERY OCCASION, AND IT"
  18. 280 SYSBA+39,55296,7,0,"COULD NOT POSSIBLY BE CALLED EXCITING."
  19. 290 SYSBA+39,55296,9,0,"  [207]THER COMPUTERS CAN MIX SEVERAL"
  20. 300 SYSBA+39,55296,11,0,"CHARACTER SETS, BUT ALAS NOT OUR"
  21. 310 SYSBA+39,55296,13,0,"FAITHFUL [195]OMMODORE 64."
  22. 320 T1=10000:GOSUB2960:POKE787,7
  23. 330 SYSBA+39,A3,18,15,"[159][133][213]NTIL [206]OW![137]":POKE787,6
  24. 340 T1=4000:GOSUB2960:POKE53280,0:POKE53281,0
  25. 350 SYSBA+39,A3,0,2,"[144][144][147][133][134][215][197][204][195][207][205][197] [212][207] [208][199][205] 64[137][138]"
  26. 360 T1=1500:GOSUB2960
  27. 370 SYSBA+39,A3,3,4,"[133][154][217]OU CAN NOW DISPLAY MANY SIZES,[137]"
  28. 380 T1=1500:GOSUB2960
  29. 390 SYSBA+39,A6,6,3,"[134][129]FONTS AND SHAPES,[137][138]"
  30. 400 T1=1500:GOSUB2960
  31. 410 SYSBA+39,A4,8,5,"EVEN [211]CRIPT FONTS CAN BE USED![137][138]"
  32. 420 T1=3000:GOSUB2960
  33. 430 SYSBA+39,A5,10,0,"[152][200][201][210][197][211] [199][210][193][208][200][201][195][211] [195][193][206] [194][197] [207][206] [212][200][197] [211][193][205][197] [211][195][210][197][197][206][137][138]"
  34. 435 SYSBA+39,A1,19,0,"[156]Y=SIN "
  35. 436 SYSBA+39,A0,19,6,"D[188]"
  36. 440 X1=50:Y1=150:X2=270:Y2=90
  37. 450 FORI=Y2TOY1STEP10
  38. 460 SYSBA+60,X1,I,X2,I,3,0
  39. 470 NEXTI
  40. 480 FORI=X1TOX2STEP10
  41. 490 SYSBA+60,I,Y1,I,Y2,3,0
  42. 500 NEXTI
  43. 510 X=X1:FORI=0TO25.14STEP.1143:S=120-SIN(I)*24
  44. 520 SYSBA+60,X1,Y1,X,S,3,0:X=X+1:X1=X:Y1=S:NEXTI
  45. 530 T1=2500:GOSUB2960
  46. 540 SYSBA+36,A1,21,0,"[159][207]F COURSE [158]80 COLUMN [159]TEXT IS SUPPORTED,"
  47. 550 SYSBA+36,A1,20,20,"[133][159]INCLUDING [135][153]DOUBLE HEIGHT[139] [159]IN 80 COLUMNS![137]"
  48. 560 T1=2500:GOSUB2960
  49. 570 SYSBA+39,A2,23,1,"[133][134][135][150]EVEN UNDERLINE IT![137][138][139]"
  50. 580 T1=4000:GOSUB2960
  51. 590 SYSBA+39,A4,2,0,"[133][134][156][147][215]ELCOME"
  52. 600 SYSBA+39,A5,6,0,"[133][134] [212]O [212]HE [215]ORLD"
  53. 610 SYSBA+39,A3,10,0,C$+"[133][134]  [207][198] [196][217][206][193][205][201][195] [211][208][210][201][212][197][211]":CS=1
  54. 620 SYSBA+84,0,0,0,0,0,14
  55. 630 FORI=1TO30
  56. 640 C=C+1:IFC=16THENC=0
  57. 650 RX=INT(RND(1)*335):RY=INT(RND(1)*190)+35
  58. 660 SYSBA+99,0,RX,RY,3,0,3,CS,0,3,CS
  59. 670 T1=150:GOSUB2960
  60. 680 NEXT
  61. 690 SYSBA+99,0,163,117,3,0,3,CS,0,3,CS
  62. 700 FORI=1TO7:SYSBA+3*28,I,0,0,0,0,I+6:NEXTI
  63. 710 FORI=1TO7:SYSBA+3*29,I,163,117,0:NEXTI:FORJ=1TO100:NEXTJ
  64. 720 T1=1000:GOSUB2960
  65. 730 SYSBA+81,1,0:SYSBA+99,0,40,140,1,0,3,CS,0,3,CS
  66. 740 SYSBA+81,1,1:SYSBA+99,1,40,60,1,0,3,CS,0,3,CS
  67. 750 SYSBA+81,1,2:SYSBA+99,2,170,60,1,0,3,CS,0,3,CS
  68. 760 SYSBA+81,1,3:SYSBA+99,3,320,60,1,0,3,CS,0,3,CS
  69. 770 SYSBA+81,1,4:SYSBA+99,4,40,220,1,0,3,CS,0,3,CS
  70. 780 SYSBA+81,1,5:SYSBA+99,5,170,220,1,0,3,CS,0,3,CS
  71. 790 SYSBA+81,1,6:SYSBA+99,6,320,220,1,0,3,CS,0,3,CS
  72. 800 SYSBA+81,1,7:SYSBA+99,7,320,140,1,0,3,CS,0,3,CS
  73. 810 T1=1000:GOSUB2960
  74. 820 FORI=0TO7:SYSBA+99,I,163,117,14-I,0,3,CS,0,3,CS:NEXTI
  75. 830 BB=8:FORB=1TO4:SYSBA+72,0+B*30,199-B*15,7,4,25,B+1,0
  76. 840 X(B)=B*30+15:Y(B)=199-B*15+12
  77. 850 SYSBA+72,30+BB*30,139+(BB-5)*15,7,4,25,BB+1,0
  78. 860 X(BB)=BB*30+45:Y(BB)=139+(BB-5)*15+12:BB=BB-1:NEXTB
  79. 870 FORI=1TO7:SYSBA+81,0,I:NEXTI
  80. 880 FORI=1TO8
  81. 890 SYSBA+81,1,I-1
  82. 900 SYSBA+99,I-1,X(I),Y(I),1,0,3,CS,0,3,CS:NEXTI
  83. 910 T1=2000:GOSUB2960
  84. 920 FORI=0TO7:SYSBA+99,I,165,117,1,0,3,CS,0,3,CS:NEXTI
  85. 930 T1=250:GOSUB2960
  86. 940 FORI=1TO7:SYSBA+81,0,I:NEXTI
  87. 950 SYSBA+39,A3,2,0,"[147][156][134][204][197][212]'[211] [208][204][193][217] [204][201][206][197] [158][212][193][199]![137][138]":SYSBA+90,768,4
  88. 960 T1=1500:GOSUB2960:SYSBA+39,A3,2,2,"[147]"
  89. 970 X1=INT(RND(1)*320):Y1=INT(RND(1)*200):F=0
  90. 980 SYSBA+99,0,X1+24,Y1+50,1,0,3,CS,0,3,CS
  91. 990 X2=INT(RND(1)*320):Y2=INT(RND(1)*200)
  92. 1000 FORJ=1TO20:SYSBA+60,X1,Y1,X2,Y2,CO,0
  93. 1010 IFX2>X1ANDF=1THENSYSBA+90,768,4:F=0
  94. 1020 IFX2<X1ANDF=0THENSYSBA+90,768,4:F=1
  95. 1030 SYSBA+99,0,X2+24,Y2+50,1,0,3,CS,0,3,CS
  96. 1040 X1=X2:Y1=Y2
  97. 1050 X2=INT(RND(1)*320):Y2=INT(RND(1)*200):CO=INT(RND(1)*15)+1
  98. 1060 T1=200:GOSUB2960:NEXT:X2=319:Y2=190
  99. 1070 SYSBA+60,X1,Y1,X2,Y2,CO,0
  100. 1080 SYSBA+99,0,X2+24,Y2+50,1,0,3,CS,0,3,CS
  101. 1090 T1=500:GOSUB2960:SYSBA+81,0,255:FORI=0TO7:SYSBA+102,I,4:NEXTI
  102. 1100 IFF=1THENSYSBA+90,768,4
  103. 1110 SYSBA+39,A3,0,2,"[144][144][147]"
  104. 1120 SYSBA+18,52224,53223,0
  105. 1130 SYSBA+39,A7,0,0,"[133][215]ITH THE [135]AUTO ANIMATE[139] COMMAND YOU CAN[137]"
  106. 1140 SYSBA+39,A7,2,0,"[133]TELL A SPRITE TO GO FROM POINT ONE[137]"
  107. 1150 SYSBA+39,A7,4,0,"[133]TO POINT TWO, AT A SPECIFIED SPEED.[137]"
  108. 1160 SYSBA+39,A7,6,0,"[133][212]HE SPRITE MOVES WITHOUT [153][135]ANY[139] OTHER[137]"
  109. 1170 SYSBA+39,A7,8,0,"[133]INSTRUCTIONS BEING NECESSARY.[137]"
  110. 1180 T1=7000:GOSUB2960
  111. 1190 SYSBA+84,1,1,0,1,1,2,10,6
  112. 1200 SYSBA+87,1,300,180,4
  113. 1210 SYSBA+81,0,255:SYSBA+81,1,1
  114. 1220 SYSBA+39,A7,11,0,"[133][212]HIS IS [210]ALPH.[137]"
  115. 1230 T1=2000:GOSUB2960
  116. 1240 SYSBA+39,A7,14,0,"[133][200]E'S A SPRITE AND YOU'RE NOT."
  117. 1250 T1=2500:GOSUB2960
  118. 1260 SYSBA+39,A3,23,6,"[133][134][156][215]ATCH HIM RUN![137][138]"
  119. 1270 SYSBA+99,1,40,180,5,4,11,3,4,4,0
  120. 1280 T1=4000:GOSUB2960
  121. 1290 SYSBA+117,0,23,0,2,40
  122. 1300 SYSBA+39,A3,23,3,"[133][156][196]ID YOU NOTICE THE POINTER CHANGE?[137]"
  123. 1310 T1=3000:GOSUB2960
  124. 1320 SYSBA+117,0,23,0,2,40
  125. 1330 SYSBA+39,A3,23,1,"[156][133][204]ET'S TURN HIM AROUND AND DO IT AGAIN.[137]"
  126. 1340 T1=3000:GOSUB2960
  127. 1350 SYSBA+90,772,8:SYSBA+84,1,1,0,1,1,10,2,6
  128. 1360 SYSBA+117,0,23,0,2,40
  129. 1370 SYSBA+39,A3,23,7,"[156][133][193]ND THIS TIME MOVE FASTER![137][138]"
  130. 1380 T1=2000:GOSUB2960
  131. 1390 SYSBA+99,1,350,180,1,4,11,1
  132. 1400 T1=3000:GOSUB2960
  133. 1410 SYSBA+81,0,1
  134. 1420 SYSBA+90,772,8:SYSBA+84,1,1,0,1,1,2,10,6
  135. 1430 GOSUB2660
  136. 1440 GOSUB2970
  137. 1450 SYSBA+81,0,255:SYSBA+75:FORI=0TO7:SYSBA+102,I,0:NEXT
  138. 1460 SYSBA+39,A3,1,1,"[144][147]"
  139. 1470 SYSBA+39,A3,2,0,"[133][134][215]ELCOME TO THE [215]ORLD"
  140. 1480 SYSBA+39,A3,6,0,"[153]   OF [208]RESENTATION"
  141. 1490 SYSBA+39,A3,10,0,"  [194][213][211][201][206][197][211][211] [199][210][193][208][200][201][195][211][137][138]"
  142. 1500 T1=500:GOSUB2960
  143. 1510 M$(0)="[202]AN ":M$(1)="[198]EB ":M$(2)="[205]AR ":M$(3)="[193]PR ":M$(4)="[205]AY "
  144. 1520 M$(5)="[202]UN ":M$(6)="[202]UL ":M$(7)="[193]UG ":M$(8)="[211]EP ":M$(9)="[207]CT "
  145. 1530 M$(10)="[206]OV ":M$(11)="[196]EC ":M$(12)="[193]VG "
  146. 1540 VC=INT(RND(1)*15)+1:VC$=MID$(CO$,VC,1)
  147. 1550 POKE53280,0
  148. 1560 POKE646,0:SYSBA+39,A2,1,1,"[136]"
  149. 1570 X=0:Y=190:POKE53280,0
  150. 1580 FORI=0TO11
  151. 1590 HT=INT(RND(1)*68)+1
  152. 1600 SYSBA+36,A1,24,(I*24/8),M$(I)
  153. 1610 SYSBA+72,I*24,Y,14,8,HT,I+1,0:HT(I)=HT:AG=AG+HT
  154. 1620 NEXTI:HT(I)=INT(AG/13)
  155. 1630 SYSBA+72,I*24,Y,14,8,HT(I),13,0
  156. 1640 SYSBA+36,A1,24,(I*24/8),M$(I)
  157. 1650 SYSBA+117,0,0,0,14,40:REM CLR WND
  158. 1660 SYSBA+39,A2,1,1,"[133][134][135][158]1985 SALES ANALYSIS[137][138][139]"
  159. 1670 X1=0:Y1=0:X2=319:Y2=94:C1=6:C2=0:GOSUB2900
  160. 1680 REM TICK MARKS
  161. 1690 FORI=0TO94STEP9.4:SYSBA+60,0,I,3,I,6,0:NEXT
  162. 1700 FORI=0TO11:REM LINE GRAPH
  163. 1710 X=I*24+12
  164. 1720 SYSBA+60,X,92,X,96,6,0
  165. 1730 SYSBA+39,A2,13,X/8,"[144][159][157]"+STR$(HT(I))
  166. 1740 SYSBA+60,X,94-HT(I),X+24,94-HT(I+1),6,0:XB=X:YB=Y
  167. 1750 NEXTI:X=I*24+12
  168. 1760 SYSBA+39,A2,13,X/8,"[144][159][157]"+STR$(HT(I))
  169. 1770 T1=1000:GOSUB2960
  170. 1780 SYSBA+48,23551,0,0,25,40:REM BMCPY
  171. 1790 SYSBA+111,5,4,16,33,2,2:REMCLR CLR
  172. 1800 SYSBA+111,5,4,16,33,2,2:REMCLR CLR
  173. 1810 SYSBA+117,0,5,4,16,33:REM CLR WND
  174. 1820 SYSBA+39,A7,6,12,"[133][135]1986 [208]ROJECTIONS[137][138][139]"
  175. 1830 X1=44:Y1=45:X2=284:Y2=160:C1=1:C2=2:GOSUB2900:REM BOX
  176. 1840 REM TICK MARKS
  177. 1850 FORI=45TO160STEP11.5:SYSBA+60,45,I,48,I,1,2:NEXT:IN=18.462:X1=IN+44
  178. 1860 Y1=152:Y2=Y1:SH=80:FORI=IN+44 TO 284 STEP IN:REM LINE GRAPH
  179. 1870 SYSBA+60,I,159,I,161,1,2
  180. 1880 YH=RND(1)*11.42:X2=I
  181. 1890 SYSBA+60,X1,Y1,X2,Y2,6,2:X1=X2:Y1=Y2:Y2=Y2-YH
  182. 1900 NEXTI
  183. 1910 T1=5000:GOSUB2960
  184. 1920 SYSBA+51,23551,0,0
  185. 1930 AV=0:AG=0:S=23551:AE=1:RE=1
  186. 1940 REM SAVE 25 SCREEN CELLS
  187. 1950 FORRW=0TO24STEP5
  188. 1960 FORCL=0TO39STEP8
  189. 1970 S1(AE)=S:R(AE)=RW:C(AE)=CL
  190. 1980 SYSBA+48,S,RW,CL,5,8
  191. 1990 S=PEEK(781)+PEEK(782)*256+1:AE=AE+1
  192. 2000 NEXTCL:NEXTRW
  193. 2010 REM SCRAMBLE SCREEN
  194. 2020 FORI=1TO100
  195. 2030 R=INT(RND(1)*25)+1:R=R(R)
  196. 2040 C=INT(RND(1)*25)+1:C=C(C)
  197. 2050 A=INT(RND(1)*25)+1:A=S1(A)
  198. 2060 SYSBA+51,A,R,C
  199. 2070 NEXTI
  200. 2080 T1=1000:GOSUB2960
  201. 2090 AE=1
  202. 2100 FORRW=1TO5
  203. 2110 FORCL=1TO5:AA=S1(AE):R=R(AE):C=C(CL)
  204. 2120 SYSBA+51,AA,R,C
  205. 2130 AE=AE+1
  206. 2140 NEXTCL,RW:T1=1000:GOSUB2960
  207. 2150 REM SQUARE
  208. 2160 SYSBA+39,A3,0,0,"[144][144][147][137][138]"
  209. 2170 SYSBA+39,A3,0,4,"[133][153][215]INDOWS CAN BE CREATED BY COMMAND."
  210. 2180 X1=40:Y1=25:X2=176:Y2=103:C1=6:C2=0:GOSUB2900:REM DRAW BOX
  211. 2190 T1=2000:GOSUB2960
  212. 2200 SYSBA+117,0,0,0,2,40
  213. 2210 SYSBA+39,A3,0,4,"[133][129][193]ND CAN CONTAIN TEXT OR GRAPHICS."
  214. 2220 T1=500:GOSUB2960
  215. 2230 FORI=1TO35:GOSUB2900:X1=X1+2:X2=X2-2:Y1=Y1+2:Y2=Y2-2:NEXT
  216. 2240 T1=3000:GOSUB2960
  217. 2250 SYSBA+117,0,0,0,2,40
  218. 2260 SYSBA+39,A3,0,4,"[133][156][212]HEN STORED QUICKLY AWAY."
  219. 2270 SYSBA+48,23551,3,5,10,17
  220. 2280 T1=1000:GOSUB2960
  221. 2290 SYSBA+117,0,0,0,2,40
  222. 2300 SYSBA+39,A3,0,2,"[133][207]NCE STORED THEY CAN BE ERASED."
  223. 2310 SYSBA+117,0,3,5,12,19
  224. 2320 T1=3000:GOSUB2960
  225. 2330 SYSBA+117,0,0,0,2,40
  226. 2340 SYSBA+39,A3,0,4,"[133][129][193]ND JUST AS EASILY RESTORED."
  227. 2350 SYSBA+51,23551,3,2
  228. 2360 T1=2000:GOSUB2960
  229. 2370 SYSBA+117,0,0,0,2,40
  230. 2380 SYSBA+39,A3,0,9,"[133][150][207]R EVEN DUPLICATED!"
  231. 2390 SYSBA+51,23551,14,2
  232. 2400 SYSBA+51,23551,14,20
  233. 2410 SYSBA+51,23551,3,20
  234. 2420 T1=3000:GOSUB2960
  235. 2430 SYSBA+117,0,0,0,2,40
  236. 2440 SYSBA+39,A3,0,4,"[133][154][193] WINDOW'S COLOR CAN BE CHANGED."
  237. 2450 SYSBA+111,14,2,10,17,2,0
  238. 2460 SYSBA+111,14,20,10,17,5,0
  239. 2470 SYSBA+111,3,20,10,17,7,0
  240. 2480 T1=4000:GOSUB2960
  241. 2490 SYSBA+117,0,0,0,2,40
  242. 2500 SYSBA+39,A3,0,4,"[133][154][193]ND COLOR CAN BE RESTORED TOO!"
  243. 2510 SYSBA+111,14,2,10,17,6,0
  244. 2520 SYSBA+111,14,20,10,17,6,0
  245. 2530 SYSBA+111,3,20,10,17,6,0
  246. 2540 T1=4000:GOSUB2960
  247. 2550 SYSBA+117,0,0,0,2,40
  248. 2560 SYSBA+39,A3,0,12,"[133][201]T'S UP TO YOU."
  249. 2570 SYSBA+117,0,2,0,23,40
  250. 2580 SYSBA+51,23551,5,11
  251. 2590 T1=2000:GOSUB2960
  252. 2600 FORI=0TO3:FORJ=1TO15
  253. 2610 SYSBA+111,5,11,10,17,J,0
  254. 2620 T1=100:GOSUB2960
  255. 2630 NEXT:NEXT
  256. 2640 SYSBA+111,5,11,10,17,2,0
  257. 2650 T1=5000:GOSUB2960:RUN 110
  258. 2660 REM ANIMATE 8 DEMO
  259. 2670 SYSBA+84,0,0,0,1,1,2,10,6
  260. 2680 SYSBA+84,1,0,0,0,0,6
  261. 2690 SYSBA+39,A3,2,2,"[147][133][134][193]NIMATE ALL [135][158]EIGHT[139]"
  262. 2700 SYSBA+39,A3,5,2,"[133][134]SPRITES AT [135][129]ONCE[139]!![137][138]"
  263. 2710 X2=INT(RND(1)*200)+120:Y2=INT(RND(1)*125)+100:F=0
  264. 2720 SYSBA+90,772,8
  265. 2730 FORJ=1TO7:SYSBA+87,J,0,0,0:NEXT
  266. 2740 SYSBA+87,0,0,0,4:SYSBA+81,1,255
  267. 2750 FORI=1TO25
  268. 2760 SYSBA+99,0,X2,Y2,1,4,11,1,4,11,5:FORT=1TO50:NEXT
  269. 2770 FORJ=1TO7
  270. 2780 SYSBA+99,J,X2,Y2,2,0,3,1,0,3,2:FORT=1TO35:NEXT:NEXT
  271. 2790 X1=X2:Y1=Y2
  272. 2800 X2=INT(RND(1)*200)+120:Y2=INT(RND(1)*125)+100
  273. 2810 IFX2>X1ANDF=1THENSYSBA+90,768,12:F=0:SYSBA+84,0,1,0,1,1,2,10,6
  274. 2820 IFX2<X1ANDF=0THENSYSBA+90,768,12:F=1:SYSBA+84,0,1,0,1,1,10,2,6
  275. 2830 NEXT
  276. 2840 SYSBA+99,0,0,0,1,4,11,1
  277. 2850 FORT=1TO7:SYSBA+99,T,0,0,1,0,3,1:NEXT:T1=1000:GOSUB2960
  278. 2860 FORT=0TO7:SYSBA+102,T,0:NEXT:SYSBA+81,0,255
  279. 2870 IFF=1THENSYSBA+90,768,12
  280. 2880 RETURN
  281. 2890 REM BOX
  282. 2900 SYSBA+60,X1,Y1,X2,Y1,C1,C2
  283. 2910 SYSBA+60,X2,Y1,X2,Y2,C1,C2
  284. 2920 SYSBA+60,X2,Y2,X1,Y2,C1,C2
  285. 2930 SYSBA+60,X1,Y2,X1,Y1,C1,C2
  286. 2940 RETURN
  287. 2950 AA=PEEK(781)+PEEK(782)*256+1:RETURN
  288. 2960 FORT=1TOT1:NEXT:RETURN
  289. 2970 SYSBA+39,A7,0,0,"[144][144][147]"
  290. 2980 REM MAKE STARS
  291. 2990 SYSBA+81,0,255:FORI=0TO200
  292. 3000 X=INT(RND(.)*320):Y=INT(RND(.)*200)
  293. 3010 C=INT(RND(.)*15)+1
  294. 3020 SYSBA+54,X,Y,C,0
  295. 3030 NEXT
  296. 3040 SYSBA+39,A7,2,8,"[133][156][213]SE 14 SPRITES AT ONCE![137]"
  297. 3050 SYSBA+78,160,255:SYSBA+81,0,255
  298. 3060 SYSBA+69,0,0
  299. 3070 FORI=7TO12:SYSBA+84,I,0,0,0,1,6,5,1
  300. 3080 SYSBA+87,I,50+(I-7)*30,250,13:NEXT
  301. 3090 FORI=1TO6:SYSBA+84,I,0,0,0,1,11,12,15:NEXT
  302. 3100 SYSBA+84,13,0,0,0,0,11
  303. 3110 SYSBA+84,0,0,0,0,0,12
  304. 3120 FORI=1TO3:Y=INT(RND(.)*155):SYSBA+87,I,0,Y,28:NEXT
  305. 3130 FORI=4TO6:Y=INT(RND(.)*155):SYSBA+87,I,350,Y,28:NEXT
  306. 3140 Y=INT(RND(.)*250):SYSBA+87,13,350,Y,28
  307. 3150 Y=INT(RND(.)*250):SYSBA+87,0,0,Y,28
  308. 3160 SYSBA+81,1,255
  309. 3170 BY=255:BP=13:X(0)=350:X(1)=0:K1=1:K=-1:K2=0:L1=0
  310. 3180 FORV=1TO13
  311. 3190 FORI=1TO3:Y=INT(RND(1)*79)+60:SYSBA+99,I,X(K2),Y,8-I:NEXT
  312. 3200 FORTT=1TO3
  313. 3210 L1=L1+1:IFL1>15THEN:IFBY>180THENBY=BY-1
  314. 3220 FORI=7TO12:SYSBA+87,I,50+(I-7)*50,BY,BP:NEXT:BP=BP+1
  315. 3230 IFBP=28THENBP=13
  316. 3240 NEXT
  317. 3250 FORI=4TO6:Y=INT(RND(1)*79)+60:SYSBA+99,I,X(K1),Y,11-I:NEXT
  318. 3260 Y=INT(RND(1)*99)+40:SYSBA+99,0,X(K2),Y,2
  319. 3270 Y=INT(RND(1)*99)+40:SYSBA+99,7,X(K1),Y,4
  320. 3280 K1=K1+K:K=K*-1:K2=K2+K
  321. 3290 FORTT=1TO20
  322. 3300 L1=L1+1:IFL1>9THEN:IFBY>180THENBY=BY-1
  323. 3310 FORI=7TO12:SYSBA+87,I,50+(I-7)*50,BY,BP:NEXT:BP=BP+1
  324. 3320 IFBP=28THENBP=13
  325. 3330 NEXT:NEXT:SYSBA+81,0,255
  326. 3340 FORQ=0TO13:SYSBA+87,Q,0,0,0:NEXT
  327. 3350 SYSBA+75:SYSBA+39,A2,0,0,"[147]"
  328. 3360 RETURN
  329. 5000 A(1)=A1:A(2)=A2:A(3)=A3:A(4)=A4:A(5)=A5:A(6)=A6:A(7)=A7:A(8)=A8:A(9)=A9
  330. 5005 A(0)=A0
  331. 5007 FORT=0TO9
  332. 5010 SYSBA+39,A(T),1,0,"[144][144][147][154]@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_ !#$%&'()*+,-./"
  333. 5020 SYSBA+39,A(T),5,0,"0123456789:]<=>?[192][193][194][195][196][197][198][199][200][201][202][203][204][205][206][207][208][209][210][211][212][213][214][215][216][217][218]"
  334. 5025 FORJ=161TO191:SYSBA+39,A(T),9,J-161,CHR$(J):NEXT
  335. 5030 GETA$:IFA$=""THEN5030
  336. 5040 NEXT:END
  337.